home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / IIC.PLUS.TOUR / BASIC / INTRO (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1983-10-14  |  2.2 KB  |  48 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ONERR  GOTO 351
  2. 1  LET IN$ = "X": POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: HOME :F$ = "INTRO.TEXT": GOSUB 321: GOSUB 161: GOSUB 101: GOSUB 161: GOSUB 101: GOSUB 161: GOSUB 101: GOSUB 161: GOSUB 101: GOSUB 161: GOSUB 331
  3. 11  POKE  -16368,0: GOSUB 231:NA$ = AN$: HOME : VTAB T +1: HTAB 1: IF  LEN(NA$) >15  THEN  PRINT "That's a bit long.  Please type": PRINT "a shorter name (less than 15": PRINT "characters).": PRINT : GOTO 11
  4. 21 T = 13:B = 20:L = 1:W = 39: GOSUB 221: GOSUB 151
  5. 31  PRINT "Is your name ";NA$"?": PRINT : PRINT "Please type Y if this is correct": PRINT "or N if it's wrong.": PRINT "Then press RETURN.";:CP = 1: GOSUB 231:CP = 0: IF AN$ = ""  THEN  HOME : VTAB T +1: HTAB 1: GOTO 31
  6. 41  IF  ASC(AN$) < >89  AND  ASC(AN$) < >78  THEN  HOME : VTAB T +1: HTAB 1: GOTO 31
  7. 51  IF  ASC(AN$) < >89  THEN  HOME : VTAB T +1: PRINT "We must have misunderstood.": PRINT "Please type in your name again": PRINT "and press RETURN.": PRINT : GOTO 11
  8. 61  PRINT : PRINT  CHR$(4);"OPEN CALLNAME": PRINT  CHR$(4);"CLOSE CALLNAME": PRINT  CHR$(4);"DELETE CALLNAME": PRINT  CHR$(4);"OPEN CALLNAME": PRINT  CHR$(4);"WRITE CALLNAME": PRINT NA$: PRINT  CHR$(4);"CLOSE CALLNAME": HOME : VTAB T +2: HTAB 1
  9. 71  PRINT "There are six sections in this": PRINT "part.  Unless you are familiar": PRINT "with Applesoft BASIC, we suggest": PRINT "that you go through the sections": PRINT "in order.": GOSUB 101: HOME : VTAB T +2: HTAB 1
  10. 81  PRINT "But you can return to the menu at": PRINT "any time by pressing the ESC key.": GOSUB 101: HOME : VTAB T +2: HTAB 1: PRINT "Now you're ready to begin.  Press"
  11. 85  PRINT "ESC to go to the menu, or press": PRINT "RETURN to go to the next lesson.": POKE 928,1: GOSUB 101: GOSUB 331: PRINT : PRINT  CHR$(4);"RUN PRINT"
  12. 91  GOSUB 331: GOTO 311
  13. 101  POKE  -16368,0
  14. 111 P =  PEEK( -16384):TE = TE +1: ON P = 155 GOTO 341: ON P < >13 GOTO 121: IF TE <225  THEN 111
  15. 121  IF P = 141  THEN TE = 0: CALL  -998: RETURN 
  16. 131 M$ = "Press RETURN": GOSUB 141: GOSUB 133: GOSUB 140: GOSUB 133: GOTO 131
  17. 133 Z = 55
  18. 134 P =  PEEK( -16384): IF P >127  THEN  POKE  -16368,0: GOTO 137
  19. 135 Z = Z -1: IF Z  THEN 134
  20. 136  RETURN 
  21. 137  IF P = 155  THEN  GOSUB 140: POP : POP : GOTO 341
  22. 138  IF P = 141  THEN  GOSUB 140: POP : GOTO 121
  23. 139  GOTO 135
  24. 140 M$ = "_____________"
  25. 141  VTAB B: HTAB (W - LEN(M$))/2 -1: PRINT M$;: RETURN 
  26. 151  POKE 34,T -2: POKE 35,B: POKE 32,L: POKE 33,W +1: HOME : FOR BD = 2 TO W -1: VTAB T -1: HTAB BD: PRINT "_";: VTAB B: HTAB BD: PRINT "_";
  27. 155  NEXT BD: FOR BD = T TO B: VTAB BD: HTAB 1: PRINT "|";: HTAB W: PRINT "|";: NEXT BD: POKE 34,T: POKE 35,B -1: POKE 32,L +2: POKE 33,W -4: HOME : HOME : RETURN 
  28. 161  PRINT : PRINT  CHR$(4);"READ ";F$:S$ = "":A$ = "":NL = 1: INPUT S$: IF S$ = "%"  THEN  GOSUB 221: INPUT T,B,L,W: GOSUB 151
  29. 171  IF S$ = "&"  THEN  FOR H = T +1 TO B -1: VTAB H: CALL  -868: NEXT H
  30. 181  CALL 813:IN$ =  MID$ (IN$,1): IF IN$ = "^"  THEN 211
  31. 191  IF NL = 1  THEN  VTAB T +1: HTAB 1
  32. 201 NL = NL +1: PRINT IN$;: GOSUB 181
  33. 211  RETURN 
  34. 221  POKE 32,0: POKE 33,40: POKE 34,V: POKE 35,24: HOME : RETURN 
  35. 231  POKE  -16368,0:AN$ = "": ON CP = 1 GOTO 251
  36. 241  PRINT  CHR$(93);: HTAB 2
  37. 251 R = 0: CALL 768: FOR J = 512 TO 736:X =  PEEK(J): ON X = 155 GOTO 341: IF X = 141  THEN J = 736: GOTO 301
  38. 261  IF X = 162  THEN R = 1
  39. 271  IF J < >512  THEN 291
  40. 281 AN$ = AN$ + CHR$(X -128 -32 *(X >223)): GOTO 301
  41. 291 AN$ = AN$ + CHR$(X -128)
  42. 301  NEXT J: RETURN 
  43. 311  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: POKE  -16368,0: HOME : END 
  44. 321  PRINT : PRINT  CHR$(4);"OPEN ";F$: RETURN 
  45. 331  PRINT : PRINT  CHR$(4);"CLOSE ";F$: RETURN 
  46. 341  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: GOSUB 331: PRINT : PRINT  CHR$(4);"RUN MENU"
  47. 351  RESUME 
  48. 32000  REM COPYRIGHT 1986,1988 APPLE COMPUTER, INC.